function [AM_Mobility, AM_Mobility_Mean] = AM_Mobility_One_Animal_One_Dose(Data_Summary, AnimalID, Drug)

for n=1:size(Data_Summary,2)
    if strcmp(Data_Summary(n).animalName, AnimalID) && strcmp(Data_Summary(n).drug, Drug)
        AM_Mobility(n,1)=Data_Summary(n).Mobility_Session1;
    end
end
AM_Mobility(AM_Mobility==0)=[];
AM_Mobility_Mean = mean(AM_Mobility);

end